US Cases and Deaths by Date (Previous 30 Days)

# ggplotly(cases_1)

 US %>% filter(Reported >= Sys.Date() - 600) %>%  ggplot() + geom_col(aes(x=Reported,y=Deaths,fill=Deaths)) +
  theme(axis.text.x = element_text(angle = 45)) +
      labs(x="Date Reported",y="Total Deaths",title="COVID-19: Deaths by Date")

# ggplotly(deaths_1)

US Accumulated Daily Total: Cases and Deaths

Exponential Growth by the Numbers:

  • The first confirmed case US were on Jan. 1, 2020 (Washington State)
  • March 11, 2020 total cases: 1,281
  • March 17, 2020 total cases: 6,421
  • March 19, 2020 total cases: 13,747
  • March 21, 2020 total cases: 25,600
  • April 11, 2020 total cases: 52,639

US Recoveries Accoumliated and Daily Totals

JHU_US %>% filter(Date >= Sys.Date() -60) %>%
  ggplot() + geom_col(aes(x=Date,y=na.omit(Recovered),fill=Recovered)) +
  theme(axis.text.x = element_text(angle = 45)) +
      labs(title="USA COVID-19: Accumulated  Recoveries by Date",x="Date Reported",y="Total Cases")  + scale_y_continuous(labels = scales::comma) +
  scale_fill_gradient(labels = scales::comma)